home *** CD-ROM | disk | FTP | other *** search
/ Computer Select (Limited Edition) / Computer Select.iso / dobbs / v16n09 / bob12.exe / BOBDBG.C < prev    next >
Encoding:
C/C++ Source or Header  |  1991-07-17  |  3.3 KB  |  129 lines
  1. /* bobdbg.c - debug routines */
  2. /*
  3.     Copyright (c) 1991, by David Michael Betz
  4.     All rights reserved
  5. */
  6.  
  7. #include "bob.h"
  8.  
  9. /* instruction output formats */
  10. #define FMT_NONE    0
  11. #define FMT_BYTE    1
  12. #define FMT_WORD    2
  13. #define FMT_LIT        3
  14.  
  15. typedef struct { int ot_code; char *ot_name; int ot_fmt; } OTDEF;
  16. OTDEF otab[] = {
  17. {    OP_BRT,        "BRT",        FMT_WORD    },
  18. {    OP_BRF,        "BRF",        FMT_WORD    },
  19. {    OP_BR,        "BR",        FMT_WORD    },
  20. {    OP_LIT,        "LIT",        FMT_LIT        },
  21. {    OP_REF,        "REF",        FMT_LIT        },
  22. {    OP_SET,        "SET",        FMT_LIT        },
  23. {    OP_AREF,    "AREF",        FMT_BYTE    },
  24. {    OP_ASET,    "ASET",        FMT_BYTE    },
  25. {    OP_TREF,     "TREF",        FMT_BYTE    },
  26. {    OP_TSET,    "TSET",        FMT_BYTE    },
  27. {    OP_MREF,    "MREF",        FMT_BYTE    },
  28. {    OP_MSET,    "MSET",        FMT_BYTE    },
  29. {    OP_VREF,    "VREF",        FMT_NONE    },
  30. {    OP_VSET,    "VSET",        FMT_NONE    },
  31. {    OP_CALL,    "CALL",        FMT_BYTE    },
  32. {    OP_RETURN,    "RETURN",    FMT_NONE    },
  33. {    OP_SEND,    "SEND",        FMT_BYTE    },
  34. {    OP_TSPACE,    "TSPACE",    FMT_BYTE    },
  35. {    OP_NIL,        "NIL",        FMT_NONE    },
  36. {    OP_PUSH,    "PUSH",        FMT_NONE    },
  37. {    OP_NOT,        "NOT",        FMT_NONE    },
  38. {    OP_NEG,        "NEG",        FMT_NONE    },
  39. {    OP_ADD,        "ADD",        FMT_NONE    },
  40. {    OP_SUB,        "SUB",        FMT_NONE    },
  41. {    OP_MUL,        "MUL",        FMT_NONE    },
  42. {    OP_DIV,        "DIV",        FMT_NONE    },
  43. {    OP_REM,        "REM",        FMT_NONE    },
  44. {    OP_SHL,        "SHL",        FMT_NONE    },
  45. {    OP_SHR,        "SHR",        FMT_NONE    },
  46. {    OP_BAND,    "BAND",        FMT_NONE    },
  47. {    OP_BOR,        "BOR",        FMT_NONE    },
  48. {    OP_BNOT,    "BNOT",        FMT_NONE    },
  49. {    OP_LT,        "LT",        FMT_NONE    },
  50. {    OP_LE,        "LE",        FMT_NONE    },
  51. {    OP_EQ,        "EQ",        FMT_NONE    },
  52. {    OP_NE,        "NE",        FMT_NONE    },
  53. {    OP_GE,        "GE",        FMT_NONE    },
  54. {    OP_GT,        "GT",        FMT_NONE    },
  55. {    OP_INC,        "INC",        FMT_NONE    },
  56. {    OP_DEC,        "DEC",        FMT_NONE    },
  57. {    OP_DUP2,    "DUP2",        FMT_NONE    },
  58. {    OP_NEW,        "NEW",        FMT_NONE    },
  59. {0,0,0}
  60. };
  61.  
  62. /* decode_procedure - decode the instructions in a code object */
  63. decode_procedure(code)
  64.   VALUE *code;
  65. {
  66.     int len,lc,n;
  67.     len = strgetsize(vecgetelement(code,0));
  68.     for (lc = 0; lc < len; lc += n)
  69.     n = decode_instruction(code,lc);
  70. }
  71.  
  72. /* decode_instruction - decode a single bytecode instruction */
  73. int decode_instruction(code,lc)
  74.   VALUE *code; int lc;
  75. {
  76.     char name[TKNSIZE+1],buf[100];
  77.     unsigned char *cp;
  78.     OTDEF *op;
  79.     int n=1;
  80.  
  81.     /* get bytecode pointer for this instruction */
  82.     cp = strgetdata(vecgetelement(code,0)) + lc;
  83.  
  84.     /* show the address and opcode */
  85.     if (valtype(vecgetelement(code,1)) == DT_CLASS) {
  86.     getcstring(name,sizeof(name),clgetname(vecgetelement(code,1)));
  87.     sprintf(buf,"%s::",name);
  88.     osputs(buf);
  89.     }
  90.     getcstring(name,sizeof(name),vecgetelement(code,2));
  91.     sprintf(buf,"%s %04x %02x ",name,lc,*cp);
  92.     osputs(buf);
  93.  
  94.     /* display the operands */
  95.     for (op = otab; op->ot_name; ++op)
  96.     if (*cp == op->ot_code) {
  97.         switch (op->ot_fmt) {
  98.         case FMT_NONE:
  99.         sprintf(buf,"      %s\n",op->ot_name);
  100.         osputs(buf);
  101.         break;
  102.         case FMT_BYTE:
  103.         sprintf(buf,"%02x    %s %02x\n",cp[1],op->ot_name,cp[1]);
  104.         osputs(buf);
  105.         n += 1;
  106.         break;
  107.         case FMT_WORD:
  108.         sprintf(buf,"%02x %02x %s %02x%02x\n",cp[1],cp[2],
  109.             op->ot_name,cp[2],cp[1]);
  110.         osputs(buf);
  111.         n += 2;
  112.         break;
  113.         case FMT_LIT:
  114.         sprintf(buf,"%02x    %s %02x ; ",cp[1],op->ot_name,cp[1]);
  115.         osputs(buf);
  116.         print1(stderr,TRUE,vecgetelement(code,cp[1]));
  117.         osputs("\n");
  118.         n += 1;
  119.         break;
  120.         }
  121.         return (n);
  122.     }
  123.     
  124.     /* unknown opcode */
  125.     sprintf(buf,"      <UNKNOWN>\n");
  126.     osputs(buf);
  127.     return (1);
  128. }
  129.